home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / ctnews54.zip / CATNEWS.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-04-02  |  6KB  |  143 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  5671 bytes  03/09/122  08:19:22am
  3. '! Code Segment Size  :947 bytes
  4. '! Data Segment Size  :4471 bytes
  5. '! String Segment Size:4724 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Declare Sub Sub603
  9.       Declare Sub Sub752
  10.       Declare Sub Sub781
  11.  
  12.       Dim s4463 As String
  13.       Dim s4467 As String
  14.  
  15.       Dim s65532_ As String
  16.  
  17.       Cls 
  18.       Print "@NOPAUSE@@NOSTOP@"
  19.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  20.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  21.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  22.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  23.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  24.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  25.       Print "@0B@░░░░░░░░░░░@5E@┌──────────────────────────────────────────────────────┐@0B@░░░░░░░░░░░░"
  26.       Print "@0B@░░░░░░░░░░░@5E@│               @5F@Welcome to CATNEWS! WCX                @5E@│@0B@░░░░░░░░░░░░"
  27.       Print "@0B@░░░░░░░░░░░@5E@│                                                      │@0B@░░░░░░░░░░░░"
  28.       Print "@0B@░░░░░░░░░░░@5E@│        Copyright (c) 1995 Maddog Productions         │@0B@░░░░░░░░░░░░"
  29.       Print "@0B@░░░░░░░░░░░@5E@│          @5A@A wcCODE program for CATNEWS.EXE            @5E@│@0B@░░░░░░░░░░░░"
  30.       Print "@0B@░░░░░░░░░░░@5E@└──────────────────────────────────────────────────────┘@0B@░░░░░░░░░░░░"
  31.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  32.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  33.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  34.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  35.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  36.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  37.       Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  38.       Delay 2
  39.       Do
  40.         Do
  41.           Do
  42.   231       Cls 
  43.             Print "@07@@NOSTOP@@NOPAUSE@"
  44.             Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  45.             Print "@0B@░░░░@74@┌─────────────────────────────────────────────────────────────────────┐@0B@░░░░"
  46.             Print "@0B@░░░░@74@│  @71@─══ CatNews! v5  ══─       The wcCODE interface to CATNEWS!        @74@│@03@░@0B@░░░"
  47.             Print "@0B@░░░░@74@│  @78@By William Mantz II           @74@Wildcat! Newsletter Creator          │@03@░@0B@░░░"
  48.             Print "@0B@░░░░@74@└─────────────────────────────────────────────────────────────────────┘@03@░@0B@░░░"
  49.             Print "@0B@░░░░@74@┌─────────────────────────────────────────────────────────────────────┐@03@░@0B@░░░"
  50.             Print "@0B@░░░░@74@│                                                                     │@03@░@0B@░░░"
  51.             Print "@0B@░░░░@74@│      [@71@E@74@]  @70@Edit/Create the Newsletter                                @74@│@03@░@0B@░░░"
  52.             Print "@0B@░░░░@74@│      [@71@H@74@]  @70@Help  (About Catnews WCX)                                 @74@│@03@░@0B@░░░"
  53.             Print "@0B@░░░░@74@│      [@71@Q@74@]  @70@Quit Back to the BBS                                      @74@│@03@░@0B@░░░"
  54.             Print "@0B@░░░░@74@│                                                              @78@v1.0   @74@│@03@░@0B@░░░"
  55.             Print "@0B@░░░░@74@╘═════════════════════════════════════════════════════════════════════╛@03@░@0B@░░░"
  56.             Print "@0B@░░░░░░@03@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@0B@░░░"
  57.             Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  58.             Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  59.             Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  60.             Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  61.             Print "@0B@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  62.             Print
  63.             Print "@0F@     S@0E@elect an Option (@0F@E,H,Q@0E@): ";
  64.             s4463 = ""
  65.             Do
  66.   425         s4463 = UCase(InKey(1213417543))
  67.             Loop Until Len(s4463) > 0 And Asc(s4463) <> 13
  68.             s65532_ = s4463
  69.             If (s65532_ = "H") = 0 Then GoTo 512
  70.             Sub781
  71.           Loop
  72.           GoTo 583
  73.   512     If (s65532_ = "E") = 0 Then GoTo 547
  74.           Sub603
  75.         Loop
  76.         GoTo 583
  77.   547   If s65532_ = "Q" Then
  78.           Sub752
  79.           End 
  80.           GoTo 583
  81.         End If
  82.   577 Loop
  83.   583 Cls 
  84.       End 
  85.  
  86. '! Called 1 time
  87.       Sub Sub603
  88.         Dim i65534 As Integer
  89.  
  90.         i65534 = 0
  91.         s4467 = ProgPath + "IMPORT.$$$"
  92.         If EditFile(s4467, 150, "@0B@Editing Newsletter, @0A@ESC=PROMPTS") Then
  93.           i65534 = -1
  94.         Else
  95.   666     i65534 = 0
  96.         End If
  97.   672   Print
  98.         If i65534 Then
  99.           s4463 = ProgPath + "CATNEWS /I"
  100.           Shell s4463, ""
  101.           Print " NewsLetter Processed by Catnews! "
  102.           ActivityLog "NewsLetter Processed by Catnews! "
  103.           Sub752
  104.           End 
  105.         Else
  106.   741     ActivityLog "NewsLetter ABORTED ! "
  107.         End If
  108.   749
  109.       End Sub
  110.  
  111. '! Called 2 times
  112.       Sub Sub752
  113.         Cls 
  114.         Print
  115.         Print "@0B@ Thanks for Using CatNews! WCX and CatNews! "
  116.         Print
  117.         End 
  118.       End Sub
  119.  
  120. '! Called 1 time
  121.       Sub Sub781
  122.         Cls 
  123.         Print "@NOPAUSE@"
  124.         Print "@0C@                   -=  CATNEWS! WCX HELP  =- "
  125.         Print
  126.         Print "@0E@      CatNews! WCX is a Wildcat! wcCODE Interface program to the"
  127.         Print "@0E@ Catnews! program.  The WCX program you are now running "
  128.         Print "@0E@ envokes the Wildcat! internal Editor for you to edit and "
  129.         Print "@0E@ create the Newsletter.    CatNews! WCX allows you to EDIT"
  130.         Print "@0E@ a the Newsletter using the WC! internal editor.  Since it is the"
  131.         Print "@0E@ Wildcat! internal editor being accessed, you have all the Spell"
  132.         Print "@0E@ Check functions you normally would have in the Message editor."
  133.         Print "@0E@ You will have up to 150 Lines to make your News. The NEWS will "
  134.         Print "@0E@ by sized to the amount of Lines you are using. "
  135.         Print "@0F@       -=  CatNews! WCX Runs CATNEWS.EXE for you!  =-  "
  136.         Print "@0E@ This WCX file DOES NOT Create the Newsletter! Catnews.EXE Does! "
  137.         Print "@0E@ This program just formats the Data for Catnews prior to processing."
  138.         Print "@0E@ Using this WCX program allows you to create the news by a wcCODE "
  139.         Print "@0E@ module which lets you create it by remote if needed. "
  140.         Print
  141.         WaitEnter 
  142.       End Sub
  143.